home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Viewers / MysticView / Install < prev    next >
Text File  |  1998-06-24  |  5KB  |  203 lines
  1.  
  2. ;      *** MysticView installation scipt ***
  3.  
  4.  
  5.     ; *** versions ***
  6.  
  7.     (set ver (getversion "MysticView"))
  8.     (set tver (/ ver 65536))
  9.     (set trev (- ver (* tver 65536)))
  10.     (set #MysticVersion (cat tver "." trev))
  11.  
  12.     (set ver (getversion "libs/render.library"))
  13.     (set renderversion (/ ver 65536))
  14.     (set renderrevision (- ver (* renderversion 65536)))
  15.  
  16.     (set ver (getversion "libs/guigfx.library"))
  17.     (set guigfxversion (/ ver 65536))
  18.     (set guigfxrevision (- ver (* guigfxversion 65536)))
  19.  
  20.     (set oldrenderversion 0)
  21.     (set oldrenderrevision 0)
  22.     (if (> (exists ("libs:render.library")) 0)
  23.         (
  24.             (set ver (getversion "libs:render.library"))
  25.             (set oldrenderversion (/ ver 65536))
  26.             (set oldrenderrevision (- ver (* oldrenderversion 65536)))
  27.         )
  28.     )
  29.  
  30.     (set oldguigfxversion 0)
  31.     (set oldguigfxrevision 0)
  32.     (if (> (exists ("libs:guigfx.library")) 0)
  33.         (
  34.             (set ver (getversion "libs:guigfx.library"))
  35.             (set oldguigfxversion (/ ver 65536))
  36.             (set oldguigfxrevision (- ver (* oldguigfxversion 65536)))
  37.         )
  38.     )
  39.  
  40. ;****************************************************************************
  41. ;
  42. ;    English texts
  43. ;
  44.  
  45.     (if (not (= @language "deutsch"))
  46.         (
  47.             (set #install-msg (cat    "\n\nMysticView installation script.\n\n"
  48.                         "this script will install MysticView " #MysticVersion " to your system.\n\n"
  49.                         "MysticView © 1997 by TEK neoscientists\n"))
  50.  
  51.             (set #welcome-msg          "welcome to the MysticView installation process.")
  52.             (set #bad-kick            "you need at least os3.0 (v39) to use this program.")
  53.             (set #bad-cpu            "you need at least a 68020 processor.");
  54.             (set #bad-installer        "you must be using Installer v43 to install MysticView.")
  55.             (set #ask-prog-dir        "where shall i install MysticView?\na drawer will NOT be created.")
  56.             (set #ask-help-dir        "where shall i install the documentation?")
  57.             (set #copy-msg            "copying files to ")
  58.         )
  59.     )
  60.  
  61. ;****************************************************************************
  62. ;
  63. ;    Deutsche Texte
  64. ;
  65.  
  66.     (if (= @language "deutsch")
  67.         (
  68.             (set #install-msg (cat    "\n\nMysticView installationsskript.\n\n"
  69.                                     "dieses skript installiert MysticView " #MysticVersion " auf ihrem system.\n\n"
  70.                                     "MysticView © 1997 by TEK neoscientists\n"))
  71.  
  72.             (set #welcome-msg          "willkommen zur installation von MysticView")
  73.             (set #bad-kick            "sie benötigen mindestens os3.0 (v39).")
  74.             (set #bad-cpu            "sie benötigen mindestens einen 68020 prozessor.");
  75.             (set #bad-installer        "sie benötigen den Installer v43, um MysticView zu installieren.")
  76.             (set #ask-prog-dir        "wo soll MysticView installiert werden?\nein verzeichnis wird NICHT angelegt.")
  77.             (set #ask-help-dir        "wohin soll die anleitung kopiert werden?")
  78.             (set #copy-msg            "kopiere dateien nach ")
  79.         )
  80.     )
  81.  
  82.  
  83. ;****************************************************************************
  84. ;
  85. ;    installation process
  86. ;
  87.  
  88.  
  89.     ; *** Welcome the user to the installation
  90.  
  91.     (message #install-msg)
  92.  
  93.  
  94.     ; *** Check for Kickstart version ***
  95.  
  96.     (if (< (/ (getversion) 65536) 39)
  97.         ((abort #bad-kick))
  98.     )
  99.  
  100.  
  101.     ; *** Check for Installer-Version ***
  102.  
  103.     (if (< (/ @installer-version 65536) 43)
  104.         ((abort #bad-installer))
  105.     )
  106.  
  107.  
  108.     ; *** Check for CPU ***
  109.  
  110.     (if (patmatch "68000|68010" (database "cpu"))
  111.         (abort #bad-cpu)
  112.     )
  113.  
  114.   
  115.     ; *** Ask the user for the destination ***
  116.  
  117.     (set #prog-dest
  118.         (askdir (prompt #ask-prog-dir)
  119.                 (help @askdir-help)
  120.                 (default "sys:utilities")
  121.         )
  122.     )
  123.  
  124.     (set #help-dest
  125.         (askdir    (prompt #ask-help-dir)
  126.                 (help @askdir-help)
  127.                 (default #prog-dest)
  128.         )
  129.     )
  130.  
  131.  
  132.     ; *** Copy libs ***
  133.  
  134.     (if (> renderversion oldrenderversion)
  135.         (
  136.             (set #render-lib "libs/render.library")
  137.             (if (patmatch "68040" (database "cpu")) (set #render-lib "libs/render.library_68040"))
  138.             (if (patmatch "68060" (database "cpu")) (set #render-lib "libs/render.library_68060"))
  139.     
  140.             (copylib (prompt #copy-msg "LIBS:")
  141.                 (help @copylib-help)
  142.                 (source #render-lib)
  143.                 (dest "LIBS:")
  144.                 (newname "render.library")
  145.             )
  146.         )
  147.     )
  148.  
  149.  
  150.  
  151.     (if (> guigfxversion oldguigfxversion)
  152.         (
  153.             (set #guigfx-lib "libs/guigfx.library")
  154.             (if (patmatch "68881" (database "fpu")) (set #guigfx-lib "libs/guigfx.library_FPU"))
  155.             (if (patmatch "68882" (database "fpu")) (set #guigfx-lib "libs/guigfx.library_FPU"))
  156.             (if (patmatch "68040" (database "cpu")) (set #guigfx-lib "libs/guigfx.library_68040"))
  157.             (if (patmatch "68060" (database "cpu")) (set #guigfx-lib "libs/guigfx.library_68060"))
  158.  
  159.             (copylib (prompt #copy-msg "LIBS:")
  160.                 (help @copylib-help)
  161.                 (source #guigfx-lib)
  162.                 (dest "LIBS:")
  163.                 (newname "guigfx.library")
  164.             )
  165.         )
  166.     )
  167.  
  168.  
  169.  
  170.     ; *** Copy the program ***
  171.  
  172.     (set #mview "MysticView")
  173.     (if (patmatch "68881" (database "fpu")) (set #mview "MysticView_FPU"))
  174.     (if (patmatch "68882" (database "fpu")) (set #mview "MysticView_FPU"))
  175.     (if (patmatch "68040" (database "cpu")) (set #mview "MysticView_68040"))
  176.     (if (patmatch "68060" (database "cpu")) (set #mview "MysticView_68060"))
  177.  
  178.     (copyfiles (prompt #copy-msg #prog-dest)
  179.                 (help @copyfiles-help)
  180.                 (source #mview)
  181.                 (dest   #prog-dest)
  182.                 (infos)
  183.                 (noposition)
  184.                 (newname "MysticView")
  185.     )
  186.  
  187.  
  188.     ; *** Copy the help file ***
  189.  
  190.     (copyfiles (prompt #copy-msg #help-dest)
  191.                 (help @copyfiles-help)
  192.                 (source "MysticView.guide")
  193.                 (dest   #help-dest)
  194.                 (infos)
  195.                 (noposition)
  196.     )
  197.  
  198.  
  199.     ; ** set return value of installer
  200.  
  201.     (set @default-dest #prog-dest)
  202.  
  203.